﻿<!-- #include file="mymin.asp" -->
<card title="帖子管理"><p>
<%

dim p,id
p=getN("p",1)
if p<1 then p=1

id=getN("id",0)

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select t.title,t.content,t.savetime,u.name,u.id from 74hu_topic t left join 74hu_user u on u.id=t.userid where t.id="&id,myconn,1,1
If Not rs.eof	Then
	w "标题:"&nowml(rs("title"))&"<br/>"&_
		"发布:"&rs("savetime")&"<br/>"&_
		"作者:<a href=""detail.asp?id="&rs("id")&"&amp;sid="&sid&""">"&rs("name")&"</a><br/>"&_
		"内容:"&nowml(rs("content"))&"<br/>"&_
		"----------<br/><a href=""edit.asp?sid="&sid&"&amp;id="&id&""">[管理帖子]</a>"
Else
	w "暂时没有帖子！"
end if
rs.close
set rs=nothing

w "<br/>----------<br/><a href=""posts.asp?sid="&sid&""">[全部帖子]</a>"

call bbsLast
%>